home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-10-16 | 273 b | 20 lines | [TEXT/MPS ] |
- UNIT StART;
-
- INTERFACE
-
- USES Types;
-
- TYPE
- SaveA5Rec = RECORD
- oldA5: Ptr;
- oldCurrentA5: Ptr;
- END;
-
- PROCEDURE UseGlobals(VAR save: SaveA5Rec);
-
- PROCEDURE CopyHostQD(thePort: Ptr; oldA5: Ptr);
-
- PROCEDURE DoneWithGlobals(restore: SaveA5Rec);
-
- END.
-